(startup-echo-area-message): Check for about-emacs.

diff --git a/lisp/startup.el b/lisp/startup.el
index 059ae8de075bb282dc836f37a1f9e91ce5e456dd..3e988421d3d672a8df1bd8e74f76ccccc998e967 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1834,7 +1834,7 @@ Type \\[describe-distribution] for information on "))
   (insert "\tBuying printed manuals from the FSF\n"))
 
 (defun startup-echo-area-message ()
-  (if (eq (key-binding "\C-h\C-p") 'describe-project)
+  (if (eq (key-binding "\C-h\C-a") 'about-emacs)
       "For information about GNU Emacs and the GNU system, type C-h C-a."
     (substitute-command-keys
      "For information about GNU Emacs and the GNU system, type \